home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zb.d64 / fx-80'cmds.proc < prev    next >
Text File  |  2007-03-01  |  2KB  |  81 lines
  1. 9000 //DELETE "PROC.FX-80'CMDS"
  2. 9010 //LIST   "PROC.FX-80'CMDS"
  3. 9020 //BY ═ARK ╚. ╞INLEY
  4. 9030 //
  5. 9040 PROC BEEP 
  6. 9050   PRINT CHR$(7),
  7. 9060 ENDPROC BEEP
  8. 9070 //
  9. 9080 PROC BACKSPACE 
  10. 9090   PRINT CHR$(8),
  11. 9100 ENDPROC BACKSPACE
  12. 9110 //
  13. 9120 PROC ENLARGE 
  14. 9130   PRINT CHR$(27),CHR$(14),
  15. 9140 ENDPROC ENLARGE
  16. 9150 //
  17. 9160 PROC UNENLARGE 
  18. 9170   PRINT CHR$(27),CHR$(20),
  19. 9180 ENDPROC UNENLARGE
  20. 9190 //
  21. 9200 PROC CONDENSE 
  22. 9210   PRINT CHR$(27),CHR$(15),
  23. 9220 ENDPROC CONDENSE
  24. 9230 //
  25. 9240 PROC UNCONDENSE 
  26. 9250   PRINT CHR$(27),CHR$(18),
  27. 9260 ENDPROC UNCONDENSE
  28. 9270 //
  29. 9280 PROC UNDERLINE 
  30. 9290   PRINT CHR$(27),"-",CHR$(1),
  31. 9300 ENDPROC UNDERLINE
  32. 9310 //
  33. 9320 PROC NONUNDERLINE 
  34. 9330   PRINT CHR$(27),"-",CHR$(0),
  35. 9340 ENDPROC NONUNDERLINE
  36. 9350 //
  37. 9360 PROC EMPHASIZE 
  38. 9370   PRINT CHR$(27),"┼",
  39. 9380 ENDPROC EMPHASIZE
  40. 9390 //
  41. 9400 PROC UNEMPHASIZE 
  42. 9410   PRINT CHR$(27),"╞",
  43. 9420 ENDPROC UNEMPHASIZE
  44. 9430 //
  45. 9440 PROC BOLD 
  46. 9450   PRINT CHR$(27),"╟",
  47. 9460 ENDPROC BOLD
  48. 9470 //
  49. 9480 PROC UNBOLD 
  50. 9490   PRINT CHR$(27),"╚",
  51. 9500 ENDPROC UNBOLD
  52. 9510 //
  53. 9520 PROC ELITE 
  54. 9530   PRINT CHR$(27),"═",
  55. 9540 ENDPROC ELITE
  56. 9550 //
  57. 9560 PROC PICA 
  58. 9570   PRINT CHR$(27),"╨",
  59. 9580 ENDPROC PICA
  60. 9590 //
  61. 9600 PROC SUPERSCRIPT 
  62. 9610   PRINT CHR$(27),"╙",CHR$(0),
  63. 9620 ENDPROC SUPERSCRIPT
  64. 9630 //
  65. 9640 PROC ENDSCRIPT 
  66. 9650   PRINT CHR$(27),"╘",
  67. 9660 ENDPROC ENDSCRIPT
  68. 9670 //
  69. 9680 PROC SUBSCRIPT 
  70. 9690   PRINT CHR$(27),"╙",CHR$(1),
  71. 9700 ENDPROC SUBSCRIPT
  72. 9710 //
  73. 9720 PROC PROPORTIONAL 
  74. 9730   PRINT CHR$(27),"P",CHR$(1),
  75. 9740 ENDPROC PROPORTIONAL
  76. 9750 //
  77. 9760 PROC UNPROPORTIONAL 
  78. 9770   PRINT CHR$(27),"P",CHR$(0),
  79. 9780 ENDPROC UNPROPORTIONL
  80. 9790 //
  81.